【Clojure入門】 Clojureの基本 練習問題解答例
練習問題3
Q. ¥3,950,000を年利率2.3%の単利で8か月間借り入れた場合の利息はいくらか? (円未満切り捨て)
code:clojure
user=> (let [debt 3950000
#_=> (* debt ; ¥3,950,000を #_=> (/ interest-rate 100) ; 年利率2.3%の単利で #_=> 8/12)) ; 8か月(= 8/12年)借り入れる 60566.66666666667
user=> (long *1) ; 円未満(小数部)を切り捨てる
60566 ; ¥60,566
Q. 定価¥1,980,000の商品を値引きして販売したところ、原価の1.6%にあたる¥26,400の損失となった。割引額は定価の何%にあたるか?
code:clojure
user=> (let [fixed-price 1980000 ; 定価
#_=> cost (* loss 1000/16) ; 原価 = 損失 ÷ 1.6/100 #_=> discounted-price (- cost loss) ; 割引価格 = 原価 - 損失 #_=> discount (- fixed-price discounted-price)] ; 割引額 = 定価 - 割引価格 #_=> (* (/ discount fixed-price) 100)) ; 割引額の定価に対する割合(%) 18N ; 18%